\begin{tabbing}
(\=(Unfold `ext{-}eq` 0) \+
\\[0ex]CollapseTHEN (((Auto$\cdot$) 
\\[0ex]CollapseTHEN (((((D (0)$\cdot$) 
\\[0ex]CollapseTHEN (
\-\\[0ex]A\=uto$\cdot$))$\cdot$) \+
\\[0ex]CollapseTHEN (((SubsumeC $B$) 
\\[0ex]CollapseTHEN (Auto$\cdot$))$\cdot$))$\cdot$))$\cdot$))$\cdot$
\-
\end{tabbing}